home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO018.dsk
/
MOIRE.PATTERNS.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
1KB
|
29 lines
100 PRINT CHR$(21): TEXT : HOME : NORMAL
110 PRINT "THIS PROGRAM COMES FROM THE APPLE MANUALAND MODIFIED BY S. JACKSON FOR A.C.E.S."
120 PRINT : PRINT : PRINT "IT WILL PRODUCE MANY COLORFUL PATERNS. SIT BACK AND ENJOY."
130 PRINT : PRINT : PRINT " (PRESS SPACE-BAR TO END THE DEMO.)"
140 FOR I = 1 TO 4000: NEXT
150 HGR2
160 HCOLOR= 0: HPLOT 0,0
170 CALL 62454
180 C(0) = INT( RND(1) *8):C(1) = INT( RND(1) *8): IF ((C(0) = 0 AND C(1) = 4) OR (C(1) = 0 AND C(0) = 4)) THEN 180
190 A = RND(1) *279
200 B = RND(1) *191
210 I% = ( RND(1) *4) +2
220 FOR X = 0 TO 278 STEP I%
230 FOR S = 0 TO 1
240 HCOLOR= C(S)
250 HPLOT X +S,0 TO A,B TO 279 -X -S,191
260 IF PEEK( -16384) >127 THEN 360
270 NEXT S,X
280 FOR Y = 0 TO 191 STEP I%
290 FOR S = 0 TO 1
300 HCOLOR= C(S)
310 HPLOT 279,Y +S TO A,B TO 0,191 -Y -S
320 IF PEEK( -16384) >127 THEN 360
330 NEXT S,Y
340 FOR P = 1 TO 1500: NEXT P
350 GOTO 170
360 HOME : TEXT : VTAB 11: HTAB 18: PRINT "BYE!"
370 POKE -16368,0
380 PRINT CHR$(4)"-STARTUP"